home *** CD-ROM | disk | FTP | other *** search
/ Publication 6 / Publication_06_19xx_High-Tech_de_Side_B.d64 / the derby! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  50 lines
  1. 1 v=53248:poke775,200:pokev+16,0:pokev+21,0:print"[147]":dimh$(8),h(8),pl$(10),pl(10),i$(50),c$(50),b(10),t(10),be(10),ho(10):dimbe$(30):fori=1to6:h(i)=i:next:fori=1to10:t(i)=1000:next:poke53280,0:poke53281,0:print"[147]           d e r b y  d a s h 
  2. 101 [153]"you start off with \1000.00 and bet on ahorse 1 to 6":[153]"if your horse wins the race then you winthe amount of money depend";:[153]"ing on the    betting price!":[153]"e.g.say you put \10 on 5/1 then you win \50!
  3. 105 print"you can have up to 10 people playing!":print"what more can i say apart from good luck":print"press any key to continue
  4. 108 [161]a$:[139]a$[178]""[167]108
  5. 109 [133]"loadhow many players?";pl:[139]pl[177]10[167]109
  6. 111 [129]i[178]1[164]pl:[153]"type player #"i:[133]pl$(i):[130]i:[153]"load":[141]10000:[129]i[178]1[164]30:[135]i$(i):[130]i
  7. 117 [129]i[178]1[164]6
  8. 118 j[178][181]([187](1)[172]30)[170]1:[139]c$(j)[178]"1"[167]118
  9. 120 c$(j)[178]"1":h$(i)[178]i$(j):[130]i:[129]i[178]1[164]6:be(i)[178][181]([187](1)[172]10)[170]1:[139]be(i)[178]1[167]be$(i)[178]"evens
  10. 122 nexti:pokev+21,peek(v+21)and0:fori=1to6:iflen(h$(i))>=17thenprinth(i)h$(i)be(i)"/ 1 "be$(i):goto126
  11. 125 printh(i)h$(i),be(i)"/ 1 "be$(i)
  12. 126 print:nexti:print:fori=1topl:ift(i)<=0thengosub30010:goto130
  13. 128 printpl$(i)" type horse (1-6) then type bet";:inputho(i),b(i):print"[145]":ifb(i)>t(i)thengosub30000:print"[145][145][145][145]":goto128
  14. 130 nexti
  15. 131 forl=1topl:t(l)=t(l)-b(l):ift(l)<0thent(l)=0
  16. 132 nextl:print"[147]";:poke53280,7:poke53281,5:print"                                       [215]";:print"                                       [194]";:print"[178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][219]";:fori=1to19:print"                                       [194]";:nexti
  17. 140 print"[178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][219]":pokev+21,255:pokev,24:pokev+1,76:pokev+2,24:pokev+3,102:pokev+4,24:pokev+5,128:pokev+6,24:pokev+7,155:pokev+8,24:pokev+9,181:pokev+10,24:pokev+11,205:s=54272:forz=stos+24:pokez,0:next:poke54276,0:poke54278,64:poke54277,4:poke54296,15:poke54276,33
  18. 145 print"[158]on your marks![146]":poke54273,34:poke54272,75:fori=1to1000:nexti:print"[158]get set!!!!!!![146]":poke54273,38:poke54272,126:fori=1to1000:nexti:print"[158]go!!!!!!!!!!!![146]":poke54273,43:poke54272,52:fori=1to1000:nexti:poke54272,0:poke54273,0
  19. 151 poke54276,33:forl=1to6:x(l)=24:nextl:print"[158]     ascot     [146]
  20. 153 x(1)[178]x(1)[170][181]([187](1)[172]15)[170]1:x(2)[178]x(2)[170][181]([187](1)[172]15)[170]1:x(3)[178]x(3)[170][181]([187](1)[172]15)[170]1:x(4)[178]x(4)[170][181]([187](1)[172]15)[170]1:x(5)[178]x(5)[170][181]([187](1)[172]15)[170]1:x(6)[178]x(6)[170][181]([187](1)[172]15)[170]1:[129]k[178]1[164]6:[139]x(k)[177]255[167][141]40000
  21. 160 [130]k:z[178]0:[129]q[178]0[164]10[169]2:z[178]z[170]1:[151]v[170]q,x(z):[151]54273,34:[151]54272,75:[129]w[178]0[164]10:[130]w:[151]54273,0:[151]54272,0:[139]x(z)[177][178]60[175]y(z)[178]100[167]1000
  22. 165 [130]q:[137]153
  23. 1000 [141]2000:[153]"load":[151]53280,0:[151]53281,0:[151]v[170]21,[194](v[170]21)[175]0:[153]"sys":[153]h(z)h$(z)" is the winner!":[129]i[178]1[164]pl:[139]ho(i)[179][177]h(z)[167]1006
  24. 1004 [153]""pl$(i)" won \"(b(i)[172]be(z)):t(i)[178]t(i)[170](b(i)[172]be(z)[170]b(i))
  25. 1006 [130]i:[153]"press any key to see money!
  26. 1008 getz$:ifz$=""then1008
  27. 1009 print"[147]":fori=1topl:printpl$(i)" \"t(i):print:next:print"press any key for another game!
  28. 1014 [161]z$:[139]z$[178]""[167]1014
  29. 1015 [153]"load":[129]i[178]1[164]30:c$(i)[178]"":[130]:[129]i[178]1[164]6:be$(i)[178]"":b[178]0:be[178]0:ho(i)[178]0:x(i)[178]24:y(i)[178]0:h$(i)[178]"":[130]:[151]v[170]21,[194](v[170]21)[175]0:[151]v[170]16,0:j[178]0:[137]117
  30. 2000 [151]54276,33:[129]i[178]0[164]170:[151]54273,i:[151]54272,i:[130]i:[129]i[178]170[164]0[169][171]1:[151]54273,i:[151]54272,i:[130]i:[142]
  31. 9999 [137]9999
  32. 10000 v[178]53248:[129]i[178]0[164]7:[151]2040[170]i,13:[130]i:[129]i[178]0[164]63:[135]q:[151]832[170]i,q:[130]:[151]v[170]21,255:[129]i[178]0[164]7:[135]q:[151]v[170]39[170]i,q:[130]i:[142]
  33. 20000 [131]0,14,0,0,14,20,0,12,28,0,28,26,0,31,63,0,28,255,0,28,247,0,127,227,3,255,224,7,255,224,15,255,224,25,255,224,25,255,224,57,216,112,49,222,112,97,192,48,97,192,48,225,128,96,3,128,96,3,0,224,7,0,224,99,1,2,9,11,6,0,2,0
  34. 20201 [131] red rum,easy does it,flash gordon,demon rider,gary's choice, devil's lare,shooting star,slow joe,quick silver,windy miller, roland rat,wise old owl,hissing sid,jock the sock,willy make it
  35. 20204 [131] summer's day,randy andy,slow approach,jack the ripper, swiftsure, robin hood,friar tuck,ever ready,dennis the menace,billy whizz, nervous rex,mr bounce,sherlock holmes,running water,super gran,hello
  36. 30000 [153]"but you only have"t(i)"left!":[142]
  37. 30010 [129]q[178]1[164]pl:[139]t(q)[179][178]0[167][130]q:[137]30015
  38. 30011 [129]w[178]1[164]pl:[139]t(w)[178]0[167]30013
  39. 30012 [130]w
  40. 30013 [153]pl$(w)" you're broke!!":[139]w[178]pl[167]30023
  41. 30014 [142]
  42. 30015 [153]"loadthat is the end of today's racing!":[153]"you are all broke":[153]"do you want another game?(y/n)
  43. 30018 geta$:ifa$<>"y"anda$<>"n"then30018
  44. 30019 ifa$<>"y"then30021
  45. 30020 run
  46. 30021 ifa$="n"thensys64738
  47. 30022 sys64738
  48. 30023 form=1to2000:nextm:goto131
  49. 40000 pokev+16,peek(v+16)or(2^(k-1)):x(k)=0:y(k)=100:return
  50.